Private Sub Command1_Click()
SearchDir Text1, Text2, Text3, TreeView1
End Sub

Private Sub Form_Load()
Text1.Text = App.Path 
End Sub
